home *** CD-ROM | disk | FTP | other *** search
/ Chip: Hang es video / CHIP_ZENESZERKESZTO_2005.ISO / audio_3 / visual / robotfunk / setup.exe / {app} / main.dxr / ui_175.ls < prev    next >
Encoding:
Text File  |  2003-11-19  |  4.4 KB  |  185 lines
  1. property spriteNum
  2. global midimaplist, midihotsprite, mymidival, mymidihotspot, curscript
  3.  
  4. on beginSprite me
  5.   sprite(spriteNum).visible = 0
  6.   midihotsprite = 0
  7. end
  8.  
  9. on mouseUp me
  10.   curscript = "midimap"
  11.   cnum = member("midimegamap").image.getPixel(the mouseH, the mouseV, #integer)
  12.   if (cnum < 60) and (cnum > 4) then
  13.     vchan = ((the mouseV - 240) / 105) + 1
  14.     if midihotsprite = 0 then
  15.       mymidihotspot = the mouseLoc
  16.       if member("midimegagrey").image.getPixel(mymidihotspot) <> rgb(255, 255, 255) then
  17.         member("midimegagrey").image.floodFill(the mouseLoc, rgb(255, 34, 34))
  18.       end if
  19.     else
  20.       if mymidihotspot <> 0 then
  21.         member("midimegagrey").image.floodFill(mymidihotspot, rgb(the mouseH mod 255, 90, the mouseV mod 255))
  22.       end if
  23.       mymidihotspot = the mouseLoc
  24.       if member("midimegagrey").image.getPixel(mymidihotspot) <> rgb(255, 255, 255) then
  25.         member("midimegagrey").image.floodFill(the mouseLoc, rgb(255, 34, 34))
  26.       end if
  27.     end if
  28.     mymidival = 0
  29.     case cnum of
  30.       5:
  31.         midihotsprite = 272 + vchan
  32.         mymidival = #mouseUp
  33.       6:
  34.         midihotsprite = 277 + vchan
  35.         mymidival = #mouseUp
  36.       7:
  37.         midihotsprite = 282 + vchan
  38.         mymidival = #mouseUp
  39.       8:
  40.         midihotsprite = 174 + vchan
  41.         mymidival = #in
  42.       9:
  43.         midihotsprite = 174 + vchan
  44.         mymidival = #out
  45.       10:
  46.         midihotsprite = 150 + vchan
  47.         mymidival = the mouseH
  48.       11:
  49.         midihotsprite = 150 + vchan
  50.         mymidival = the mouseH
  51.       12:
  52.         midihotsprite = 150 + vchan
  53.         mymidival = the mouseH
  54.       13:
  55.         midihotsprite = 150 + vchan
  56.         mymidival = the mouseH
  57.       14:
  58.         midihotsprite = 150 + vchan
  59.         mymidival = the mouseH
  60.       15:
  61.         midihotsprite = 150 + vchan
  62.         mymidival = the mouseH
  63.       16:
  64.         midihotsprite = 150 + vchan
  65.         mymidival = the mouseH
  66.       17:
  67.         midihotsprite = 145 + vchan
  68.       18:
  69.         midihotsprite = 16 + vchan
  70.         mymidival = #R
  71.       19:
  72.         midihotsprite = 16 + vchan
  73.         mymidival = #G
  74.       20:
  75.         midihotsprite = 16 + vchan
  76.         mymidival = #B
  77.       21:
  78.         midihotsprite = 11 + vchan
  79.         mymidival = #R
  80.       22:
  81.         midihotsprite = 11 + vchan
  82.         mymidival = #G
  83.       23:
  84.         midihotsprite = 11 + vchan
  85.         mymidival = #B
  86.       33:
  87.         midihotsprite = 34 + (vchan * 2)
  88.       34:
  89.         midihotsprite = 81 + vchan
  90.         mymidival = 1
  91.       35:
  92.         midihotsprite = 81 + vchan
  93.         mymidival = 2
  94.       36:
  95.         midihotsprite = 81 + vchan
  96.         mymidival = 3
  97.       37:
  98.         midihotsprite = 81 + vchan
  99.         mymidival = 4
  100.       38:
  101.         midihotsprite = 81 + vchan
  102.         mymidival = 5
  103.       39:
  104.         midihotsprite = 81 + vchan
  105.         mymidival = 6
  106.       40:
  107.         midihotsprite = 81 + vchan
  108.         mymidival = 7
  109.       41:
  110.         midihotsprite = 81 + vchan
  111.         mymidival = 8
  112.       42:
  113.         midihotsprite = 81 + vchan
  114.         mymidival = 9
  115.       43:
  116.         midihotsprite = 81 + vchan
  117.         mymidival = 10
  118.       44:
  119.         midihotsprite = 81 + vchan
  120.         mymidival = 11
  121.       45:
  122.         midihotsprite = 81 + vchan
  123.         mymidival = 12
  124.       46:
  125.         midihotsprite = 81 + vchan
  126.         mymidival = 13
  127.       47:
  128.         midihotsprite = 81 + vchan
  129.         mymidival = 14
  130.       48:
  131.         midihotsprite = 81 + vchan
  132.         mymidival = 15
  133.       49:
  134.         midihotsprite = 81 + vchan
  135.         mymidival = 16
  136.       50:
  137.         midihotsprite = 81 + vchan
  138.         mymidival = 17
  139.       51:
  140.         midihotsprite = 81 + vchan
  141.         mymidival = 18
  142.       52:
  143.         midihotsprite = 81 + vchan
  144.         mymidival = 19
  145.       53:
  146.         midihotsprite = 81 + vchan
  147.         mymidival = 20
  148.       54:
  149.         midihotsprite = 81 + vchan
  150.         mymidival = 21
  151.       55:
  152.         midihotsprite = 81 + vchan
  153.         mymidival = 22
  154.       56:
  155.         midihotsprite = 81 + vchan
  156.         mymidival = 23
  157.       57:
  158.         midihotsprite = 81 + vchan
  159.         mymidival = 24
  160.       58:
  161.         midihotsprite = 266 + vchan
  162.         mymidival = #mouseUp
  163.       59:
  164.         midihotsprite = 165 + vchan
  165.     end case
  166.     if mymidival = 0 then
  167.       mymidival = 1
  168.     end if
  169.   else
  170.     case cnum of
  171.       1:
  172.         midihotsprite = 266
  173.         mymidival = #mouseUp
  174.       2:
  175.         midihotsprite = 57
  176.       3:
  177.         midihotsprite = 264
  178.         mymidival = #mouseUp
  179.       4:
  180.         midihotsprite = 263
  181.         mymidival = #mouseUp
  182.     end case
  183.   end if
  184. end
  185.